home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D10.D64 / lite menus mc (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.5 KB  |  48 lines
  1. 10000 REM *****************************
  2. 10010 REM * LITE MENUS! O/S VERSION 1 *
  3. 10020 REM *        CREATED BY         *
  4. 10030 REM *  MADHU SURENDRANATH (16)  *
  5. 10040 REM *  (C) COPYRIGHT JAN. 1991  *
  6. 10050 REM *****************************
  7. 10060 IF X=0 OR Y=0 OR CH=0 THEN PRINT"?UNDEFINED PARAMETERS  ERROR":STOP
  8. 10070 IF CH=1 THEN C$(1)="[166]":C$(2)="[166]":C$(3)="[166]":C$(4)="[166]":C$(5)="[166]":C$(6)="[166]"
  9. 10080 IF CH=2 THEN C$(1)="[176]":C$(2)="[195]":C$(3)="[174]":C$(4)="[194]":C$(5)="[173]":C$(6)="[189]"
  10. 10090 IF CH=3 THEN C$(1)="[213]":C$(2)="[195]":C$(3)="[201]":C$(4)="[194]":C$(5)="[202]":C$(6)="[203]"
  11. 10100 OC=PEEK(646):POKE 646,COL
  12. 10110 POKE 781,Y:POKE782,X:SYS 65520
  13. 10120 PRINT C$(1);:FOR A=1 TO X1-2
  14. 10130 PRINT C$(2);:NEXT:PRINT C$(3)
  15. 10140 FOR A=1 TO Y1-2
  16. 10150 PRINT TAB(X) C$(4) TAB(X+X1-1) C$(4)
  17. 10160 NEXT A
  18. 10170 PRINT TAB(X) C$(5);:FOR A=1 TO X1-2
  19. 10180 PRINT C$(2);:NEXT:PRINT C$(6)
  20. 10190 POKE 646,OC
  21. 10200 RETURN
  22. 11000 REM ** FLASH/MENU **
  23. 11010 IF X=0 OR Y=0 OR O$(1)="" THEN PRINT"?UNDEFINED PARAMETERS  ERROR":STOP
  24. 11020 Y=PS+A
  25. 11030 POKE 781,Y:POKE 782,TA:SYS65520
  26. 11040 POKE 199,1:PRINT O$(A);:POKE199,0
  27. 11050 GET A$:IFA$<>""ANDA$<>"[145]"ANDA$<>CHR$(13)THEN11050
  28. 11060 IFA$=""THEN B=A:A=A+1:GOTO11090
  29. 11070 IFA$="[145]"THEN B=A:A=A-1:GOTO11110
  30. 11080 IFA$=CHR$(13) THEN ZZ=Y:GOTO11130
  31. 11090 IFB=MAX THENA=MIN:POKE781,Y:POKE782,TA:SYS65520:PRINTO$(B):B=MIN:GOTO11020
  32. 11100 IFB<>MAX THEN POKE781,PS+B:POKE782,TA:SYS65520:PRINTO$(B):GOTO11020
  33. 11110 IFB=MIN THENA=MAX:POKE781,Y:POKE782,TA:SYS65520:PRINTO$(B):B=MAX:GOTO11020
  34. 11120 IFB<>MIN THEN POKE781,PS+B:POKE782,TA:SYS65520:PRINTO$(B):GOTO11020
  35. 11130 Y=ZZ:FORL=1 TO 4
  36. 11140 POKE 646,11:GOSUB11190
  37. 11150 POKE 646,12:GOSUB11190
  38. 11160 POKE 646,15:GOSUB11190
  39. 11170 NEXT L
  40. 11180 RETURN
  41. 11190 PRINT"":FORG=1TO(ZZ-1):PRINT"";:NEXTG:PRINTTAB(TA);
  42. 11200 POKE199,1:PRINTO$(A):POKE199,0:FORQ=1TO10:NEXTQ
  43. 11210 RETURN
  44. 12000 REM ** PRINT AT **
  45. 12010 IF X=0 OR Y=0 THEN PRINT"?UNDEFINED PARAMETERS  ERROR":STOP
  46. 12020 POKE 781,Y:POKE 782,X:SYS 65520
  47. 12030 RETURN
  48.